<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.03</name>
<id>-1</id>
<cardCount>22</cardCount>
<cardID>3037</cardID>
<listID>5830</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>448</width>
<height>280</height>
</cardSize>
<script>-- Scripting copyright © 1991 Symplex Systems. All rights reserved.on closeStack-- Make sure the stack opens in the small format, the-- next time it is openedif the name of this stack is the name of me then -- we may be in the user-defined inheritance pathsend openBackground to card 1end if-- CCCheck -- I won't bother putting trying to trap any other messages-- -- Eventually a closeStack will get through to this stack.pass closeStackend closeStack-- on CCCheck-- if there is not a window "CookieCutter" then-- CCStopUsing-- end if-- end CCCheckon closePalette whichWindowif whichWindow is "CookieCutter" thenCCStopUsingelsepass closePaletteend ifend closePaletteon CCStopUsing-- We separate this into separate handler because closing a window-- does not take effect until the current handlers exitglobal mustCCCheckif mustCCCheck is true thenif IAmBeingUsed() then -- really shouldn't be required: rather far-fetched that someone would "stop using" this stackstop using meend ifput empty into mustCCCheckend ifend CCStopUsingon CCCloseif there is a window "CookieCutter" thenclose window "CookieCutter"CCStopUsingend ifend CCCloseon createCutter locationPtglobal mustCCCheckCCCloseif not IAmBeingUsed() thenstart using meput true into mustCCCheckend ifpalette "CookieCutter",locationPtend createCutterend CreateCutterfunction IAmBeingUsed-- Returns true if this stack (me, not the current stack!)-- is in the user defined inheritance path.-- It doesn't use a perfect check but it should be good enough-- for this case.-- get the short name of me-- if it is in the stacksInUse then play harpsichord f g a breturn the short name of me is in the stacksInUseend IAmBeingUsedon doCookieCut-- This script does the actual cookie cutting of a cardput the pattern into savePatput the filled into saveFilledput the centered into saveCenteredset the pattern to 1set the centered to falseset the filled to truechoose select toolrepeat with fldNumb = 1 to the number of card fieldsset cursor to busy -- some cursor activity is required for feedback,-- even if it flickersif the style of card field fldNumb is not transparent thenput the bottomRight of card field fldNumb into botRightsubtract 1 from item 1 of botRightsubtract 1 from item 2 of botRightdrag from the topLeft of card field fldNumb to botRightdomenu "Fill"domenu "Transparent"end ifend repeat-- We provide special case code for the roundRect case. We also-- ignore all transparent buttons that don't have icons.-- Unfortunately, no special code is provided for transparent-- buttons with icons or radio buttons or checkboxes. These-- will all require touchup.repeat with btnNumb = 1 to the number of buttonsset cursor to busy -- some cursor activity is required for feedback,-- even if it flickersput the style of button btnNumb into stylif styl is roundRect thenput the topLeft of button btnNumb into tLeftput the bottomRight of button btnNumb into bRightchoose round rectangle tooldrag from tLeft to bRightclick at -1,-1drag from tLeft to bRightdomenu "Transparent"else if styl is not "transparent" ¬or the icon of button BtnNumb is not 0 thenchoose select tooldrag from the topLeft of button btnNumb to¬the bottomRight of button btnNumbdomenu "Fill"domenu "Transparent"end ifend repeatCCCloseset the pattern to savePatset the filled to saveFilledset the centered to saveCenteredchoose browse toolend doCookieCuton cancelCookieCutCCCloseend cancelCookieCut</script>
